// TOWN SPECIAL ENCOUNTERS
//    Town 25: Tower of Magi

//12345689

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(500,"Linda");
	set_personality_name(501,"Solberg");
	set_personality_name(502,"Ghost of Bernard");
	set_personality_name(503,"Ghost of Conruc");
	set_personality_name(504,"Ghost");

	set_aggression(30001,50);
	set_level(30001,24);
	
	set_aggression(30002,50);
	set_aggression(30003,50);

	set_aggression(30004,50);
	set_level(30004,24);

	set_name(30006,"Wormy Demon");
	set_aggression(30006,50);
	change_max_health(30006,250);

	set_aggression(30007,50);

	set_aggression(30008,45);
	set_name(2569,"Haakai Avatrus");
	set_boss_level(2569,1);

	set_name(30009,"Frenzied Imp");
	set_aggression(30009,35);
	set_level(30009,25);
	set_boss_level(30009,1);
	add_ability(30009, 4, 36, 0);
	
	set_crime_tolerance(max_crime);
 
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (gf(25,21) > 0) {
		sf(25,21,0);
		run_game_hardcode(11);
		}
		
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2505,"Lost.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2505,"All my fault.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2505,"Need the athame.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2505,"I am lost.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2505,"Hurts.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2503,"I someone there?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2503,"Reinforcements at last?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2503,"Hard to see.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2503,"I am drained.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2504,"Useless in life.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2504,"Useless in death.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2504,"Linda, are you here?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2504,"I failed us.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2501,"Carrie?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2501,"Are you there?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2501,"I have lost you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2501,"If only I could have told you.");


break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

